home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 2000 July / Computer Buyer July 2000.iso / APPLIC / NEWSOED.SMM < prev    next >
INI File  |  1996-07-30  |  8KB  |  616 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [port]
  14.     LPT3:
  15. [lang]
  16.     2
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     
  28.     
  29.     
  30.     
  31.     
  32.     838767459
  33.     21
  34.     781796939
  35.     277
  36.     3
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         Arial
  69.         240
  70.         0
  71.         16384
  72.     [algn]
  73.         1
  74.         1
  75.         216
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         273
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         16
  108.         0
  109.         0
  110.     [nfmt]
  111.         272
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         </c>
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Body Single
  122.     3
  123.     [fnt]
  124.         Times New Roman
  125.         240
  126.         0
  127.         49152
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         273
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         272
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         </c>
  173.     Body Single
  174.     0
  175.     0
  176. [tag]
  177.     Function
  178.     4
  179.     [fnt]
  180.         Arial
  181.         240
  182.         0
  183.         16385
  184.     [algn]
  185.         1
  186.         1
  187.         0
  188.         0
  189.         0
  190.     [spc]
  191.         33
  192.         244
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         68
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         1
  214.         
  215.         0
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         2
  226.         .
  227.         ,
  228.         </c>
  229.     Body Text
  230.     0
  231.     0
  232. [lay]
  233.     Standard
  234.     516
  235.     [rght]
  236.         16833
  237.         11908
  238.         1
  239.         1440
  240.         1440
  241.         1
  242.         1440
  243.         1440
  244.         0
  245.         1
  246.         0
  247.         1
  248.         0
  249.         2
  250.         1
  251.         1440
  252.         10465
  253.         12
  254.         1
  255.         720
  256.         1
  257.         1440
  258.         1
  259.         2160
  260.         1
  261.         2880
  262.         1
  263.         3600
  264.         1
  265.         4320
  266.         1
  267.         5040
  268.         1
  269.         5760
  270.         1
  271.         6480
  272.         1
  273.         7200
  274.         1
  275.         7920
  276.         1
  277.         8640
  278.     [hrght]
  279.     [lyfrm]
  280.         1
  281.         11200
  282.         0
  283.         0
  284.         11908
  285.         1440
  286.         0
  287.         1
  288.         3
  289.         1 0 0 0 0 0 0
  290.         0
  291.         0
  292.         1
  293.     [frmlay]
  294.         1440
  295.         11908
  296.         1
  297.         1440
  298.         72
  299.         1
  300.         792
  301.         1440
  302.         0
  303.         1
  304.         0
  305.         1
  306.         1
  307.         0
  308.         1
  309.         1440
  310.         10465
  311.         1
  312.         3
  313.         9360
  314.     [txt]
  315.  
  316. >
  317.     [frght]
  318.     [lyfrm]
  319.         1
  320.         13248
  321.         0
  322.         15393
  323.         11908
  324.         16833
  325.         0
  326.         1
  327.         3
  328.         1 0 0 0 0 0 0
  329.         0
  330.         0
  331.         2
  332.     [frmlay]
  333.         16833
  334.         11908
  335.         1
  336.         1440
  337.         792
  338.         1
  339.         15465
  340.         1440
  341.         0
  342.         1
  343.         0
  344.         1
  345.         1
  346.         0
  347.         1
  348.         1440
  349.         10465
  350.         2
  351.         2
  352.         4680
  353.         3
  354.         9360
  355.     [txt]
  356. >
  357. [elay]
  358. [l1]
  359.     0
  360. [pg]
  361.     3
  362.     16 0 6 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  363.     64 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  364.     75 0 2 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  365. [edoc]
  366. <:#284,9025>
  367.  
  368. <:#293,9025><+!>' This macro looks up the current selection in the New SOED<-!><+!> 
  369. <-!><+!>from Ami Pro<-!>
  370.  
  371. <:#293,9025><+!>'
  372.  
  373. <:#293,9025><+!>' It is also possible to put a smarticon on the icon bar.<-!>
  374.  
  375. <:#293,9025><+!>' to do this select "SmartIcons" from the "Tools" menu.<-!>
  376.  
  377. <:#293,9025><+!>' Select Edit Icon to create an Icon. 
  378.  
  379. <:#293,9025><+!>' Select or create an icon in this dialog.<-!><+!> 
  380.  
  381. <:#293,9025><+!>' Select the "newsoed.smm" macro from the directory where it is installed. 
  382. <-!>
  383.  
  384. <:#293,9025><+!>' Also put a description in the description field (like "lookup in New 'SOED") 
  385. <-!>
  386.  
  387. <:#293,9025><+!>' Select OK. 
  388.  
  389. <:#293,9025><+!>' Select your icon from the list of available icons and drag it 
  390. <-!>
  391.  
  392. <:#293,9025><+!>' to the second list of icons and select OK<-!> <+!>again.<-!>
  393.  
  394. <:#293,9025><+!>'
  395.  
  396. <+@><:S+-1><:#293,9025><+!><-!><+!>' Installation complete; the lines below are the macro instructions, 
  397.  
  398. <+@><:S+-1><:#293,9025><+!>' please ignore these.<-!>
  399.  
  400. <+@><:S+-1><**><:p<* >>
  401.  
  402. <+@><:S+-1><:#293,9025><+!>' Macro Text<-!>
  403.  
  404. <+@><:S+-1><:#284,9025>
  405.  
  406. <:S+-1><:#284,9025>FUNCTION NewSOED()
  407.  
  408. <:S+-1><:#284,9025>
  409.  
  410. <+@><:S+-1><:#293,9025><+!><:f240,BArial,0,0,0>' Retrieve path, filename and DDE Service name of<-!>
  411.  
  412. <+@><:S+-1><:#293,9025><+!><:f240,BArial,0,0,0>' the New Shorter<-!>
  413.  
  414. <+@><:S+-1><:#284,9025><:f240,BArial,0,0,0>path$ = GetProfileString$("Macro"<:f><:f240,BArial,0,0,0>, "PathName", "newsoed.ini")
  415.  
  416. <+@><:S+-1><:#284,9025><:f240,BArial,0,0,0>exename$ = GetProfileString$(<:f><:f240,BArial,0,0,0>"Macro"<:f><:f240,BArial,0,0,0>, "ExeName"<:f><:f240,BArial,0,0,0>, 
  417. <:f><:f240,BArial,0,0,0>"newsoed<:f><:f240,BArial,0,0,0>.ini"<:f><:f240,BArial,0,0,0>)
  418.  
  419. <+@><:S+-1><:#284,9025><:f240,BArial,0,0,0>sername$ = GetProfileString$(<:f><:f240,BArial,0,0,0>"Macro"<:f><:f240,BArial,0,0,0>, "ServiceName"<:f><:f240,BArial,0,0,0>, 
  420. <:f><:f240,BArial,0,0,0>"newsoed<:f><:f240,BArial,0,0,0>.ini"<:f><:f240,BArial,0,0,0>)<:f>
  421.  
  422. <+@><:S+-1><:#284,9025>appname$= <:f240,BArial,0,0,0>GetProfileString$(<:f><:f240,BArial,0,0,0>"Macro"<:f><:f240,BArial,0,0,0>, "AppName"<:f><:f240,BArial,0,0,0>, 
  423. <:f><:f240,BArial,0,0,0>"newsoed<:f><:f240,BArial,0,0,0>.ini"<:f><:f240,BArial,0,0,0>)<:f>
  424.  
  425. <+@><:S+-1><:#284,9025>
  426.  
  427. <+@><:#284,9025><:f240,BArial,0,0,0>fullpath$ = strcat$(path$ , "\" , exename$<:f>)
  428.  
  429. <:#284,9025><:f240,BArial,0,0,0>
  430.  
  431. <:#293,9025><:f240,BArial,0,0,0><+!>' Try to make a connection<-!>
  432.  
  433. <:#284,9025>IF AppIsRunning(appname$)
  434.  
  435. <:#284,9025><:f240,BArial,0,0,0>    id = DDEInitiate(<:f><:f240,BArial,0,0,0>sername$<:f><:f240,BArial,0,0,0>, "AmiPro"<:f><:f240,BArial,0,0,0>)<:f>
  436.  
  437. <:#284,9025>    ActivateApp(appname$)    
  438.  
  439. <:#284,9025>ELSE
  440.  
  441. <:#284,9025>    Exec(<:f240,BArial,0,0,0>fullpath$<:f>,"") 
  442.  
  443. <:#284,9025>    Pause(5)
  444.  
  445. <:#284,9025>    id = DDEInitiate(<:f240,BArial,0,0,0>sername$<:f>, "AmiPro")
  446.  
  447. <:#284,9025>    tries = 0
  448.  
  449. <:#284,9025>    WHILE id = 0 AND tries << 5
  450.  
  451. <:#284,9025>        Pause(5)
  452.  
  453. <:#284,9025>        id = DDEInitiate(<:f240,BArial,0,0,0>sername$<:f>, "AmiPro")
  454.  
  455. <:#284,9025>        tries = tries + 1
  456.  
  457. <:#284,9025>    WEND
  458.  
  459. <:#284,9025>ENDIF
  460.  
  461. <:#284,9025>
  462.  
  463. <:#293,9025><+!>' Check to see that a conversation has been initiated<-!>
  464.  
  465. <:#284,9025>IF id = 0
  466.  
  467. <:#284,9025>    Message("The Macro to search in the New Shorter Failed")
  468.  
  469. <:#284,9025>    Exit Function
  470.  
  471. <:#284,9025>ENDIF
  472.  
  473. <:#284,9025>
  474.  
  475. <:#293,9025><+!>' Set up an error address<-!>
  476.  
  477. <:#284,9025>onerror endit
  478.  
  479. <:#284,9025>
  480.  
  481. <:#293,9025><+!>' Send the selection to the New Shorter<-!>
  482.  
  483. <:#284,9025>selected$ = Left$(CurShade$(), 60)
  484.  
  485. <:#284,9025>IF selected$ = ""
  486.  
  487. <:#284,9025>    IF (NOT(CurChar$() = " "))
  488.  
  489. <:#284,9025>        type("<[>CTRLRIGHT]")
  490.  
  491. <:#284,9025>    ENDIF
  492.  
  493. <:#284,9025>    type("<[>CTRLSHIFTLEFT]")
  494.  
  495. <:#284,9025>    selected$ = Left$(CurShade$(), 60)
  496.  
  497. <:#284,9025>ENDIF
  498.  
  499. <:#284,9025>
  500.  
  501. <:#284,9025>DDEExecute(id, selected$) 
  502.  
  503. <:#284,9025>
  504.  
  505. <:#293,9025><+!>' Terminate the conversation<-!>
  506.  
  507. <:#284,9025>endit:
  508.  
  509. <:#284,9025>DDETerminate(id) 
  510.  
  511. <:#284,9025>
  512.  
  513. <+@><:S+-1><:#284,9025>END FUNCTION
  514.  
  515. <+@><:S+-1><:#284,9025>
  516.  
  517. <+@><:S+-1><:#284,9025>
  518.  
  519. <+@><:S+-1><:#284,9025>
  520.  
  521. <:#284,9025><-!>
  522.  
  523. >
  524.  
  525. [Embedded]
  526. 00006836
  527. >
  528. [macsum] 1
  529. NewSOED 0 0 9 18
  530. [macse]
  531. 14 NewSOED
  532. 0 286 "Macro" "PathName" "newsoed.ini"
  533. 13
  534. 8 1
  535. 0 286 "Macro" "ExeName" "newsoed.ini"
  536. 13
  537. 8 2
  538. 0 286 "Macro" "ServiceName" "newsoed.ini"
  539. 13
  540. 8 3
  541. 0 286 "Macro" "AppName" "newsoed.ini"
  542. 13
  543. 8 4
  544. 0 16 "{1}" "\" "{2}"
  545. 13
  546. 8 5
  547. 0 1032 "{4}"
  548. 13
  549. 11 00000325
  550. 0 8 "{3}" "AmiPro"
  551. 13
  552. 8 6
  553. 0 38 "{4}"
  554. 10 00000509
  555. 0 22 "{5}" ""
  556. 0 274 5
  557. 0 8 "{3}" "AmiPro"
  558. 13
  559. 8 6
  560. 5 0
  561. 8 7
  562. 6 6
  563. 5 0
  564. 18 0
  565. 6 7
  566. 5 5
  567. 18 5
  568. 1 1
  569. 11 00000509
  570. 0 274 5
  571. 0 8 "{3}" "AmiPro"
  572. 13
  573. 8 6
  574. 6 7
  575. 5 1
  576. 3 0
  577. 8 7
  578. 10 00000388
  579. 6 6
  580. 5 0
  581. 18 0
  582. 11 00000603
  583. 0 3 "The Macro to search in the New Shorter Failed"
  584. 6 0
  585. 15
  586. 9
  587. 20 00000802
  588. 0 24
  589. 13
  590. 0 806 [X] 60
  591. 13
  592. 8 8
  593. 6 8
  594. 7 ""
  595. 18 0
  596. 11 00000784
  597. 0 282
  598. 13
  599. 7 " "
  600. 18 0
  601. 1 3
  602. 11 00000736
  603. 0 6 "[16423]"
  604. 0 6 "[20517]"
  605. 0 24
  606. 13
  607. 0 806 [X] 60
  608. 13
  609. 8 8
  610. 0 11 "{6}" "{8}"
  611. 0 9 "{6}"
  612. 6 0
  613. 15
  614. 9
  615. 00006861
  616.